unit uConfigManager_Impl;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;

type
  TConfigManager = class;
  TConfigManager = class(TCollection)
  private
    function GetConfigs(Index: Integer): TConfig;
    procedure SetConfigs(Index: Integer; Value: TConfig);
  protected
    function Add: TConfig;
    property Items;
  public
    property Configs[Index: Integer]: TConfig read GetConfigs write SetConfigs;
  end;


implementation

{
******************************** TConfigManager ********************************
}
function TConfigManager.Add: TConfig;
begin
  Result:= TConfig(inherited Add);
end;

function TConfigManager.GetConfigs(Index: Integer): TConfig;
begin
  Result:= TConfig(Items[Index]);
end;

procedure TConfigManager.SetConfigs(Index: Integer; Value: TConfig);
begin
  Items[Index]:= Value;
end;



end.
